home *** CD-ROM | disk | FTP | other *** search
/ Micom Basic 1995 August / CD [BM9508].bin / programs / lotus / lotus001.dsk / MACROS / SAVSHADE.SMM < prev    next >
Encoding:
INI File  |  1994-08-11  |  2.5 KB  |  198 lines
  1. [ver]
  2.     4
  3. [sty]
  4.     jmacro.sty
  5. [files]
  6. [charset]
  7.     82
  8.     SHIFTJIS (Windows)
  9. [revisions]
  10.     0
  11. [prn]
  12.     PostScript Printer
  13. [port]
  14.     LPT1:
  15. [lang]
  16.     1
  17. [fldnames]
  18.     ╠¿░┘─▐1
  19.     ╠¿░┘─▐2
  20.     ╠¿░┘─▐3
  21.     ╠¿░┘─▐4
  22.     ╠¿░┘─▐5
  23.     ╠¿░┘─▐6
  24.     ╠¿░┘─▐7
  25.     ╠¿░┘─▐8
  26. [desc]
  27.     æIæ≡é╡é╜ò╢ÄÜù±é≡ÉVïKò╢Åæé╔ò█æ╢
  28.     Lotus WPD Marketing
  29.     Beginner
  30.     UserControl, New, CurShade$
  31.     noautorun
  32.     775430980
  33.     22
  34.     671525509
  35.     29
  36.     1
  37.     0
  38.     0
  39.     0
  40.     0
  41.     
  42.     
  43.     
  44.     
  45.     
  46.     
  47.     0
  48. [fopts]
  49.     0
  50.     1
  51.     0
  52.     0
  53. [lnopts]
  54.     2
  55.     Body Text
  56.     1
  57. [docopts]
  58.     5
  59.     2
  60. [GramStyle]
  61.     
  62. [l1]
  63.     0
  64. [pg]
  65.     1
  66.     32 0 12 1025 0 0 0 65535 65535 Standard    65535 0 0    0 0 0 0 0 0 0 65535 0 0 65535 0 0 0 0 0
  67. [edoc]
  68. <:#239,9071>Macro by <+!>Charlie Pappas<-!>
  69.  
  70. <:#239,9071>
  71.  
  72. @╠º▌╕╝«▌@<:#239,9071>function shadesav()
  73.  
  74. <:#239,9071>IF IsNewWave()
  75.  
  76. <:#239,9071>    Message("NewWaveé┼é═é▒é╠â}âNâìé═ùLî°é┼é═éáéΦé▄é╣é±üB")
  77.  
  78. <:#239,9071>    Exit Function
  79.  
  80. <:#239,9071>ENDIF
  81.  
  82. <:#239,9071>if GetOpenFileCount() = 9
  83.  
  84. <:#239,9071>    cr = chr$(13)
  85.  
  86.     message("âtâ@âCâïé¬éXé┬èJé⌐éΩé─éóé▄é╖é╠é┼üAé▒é╠é▄é▄é┼é═Ä└ìsé┼é½é▄é╣é±üB{cr}éPé┬ê╚Åπé╠âtâ@âCâïé≡ò┬é╢é─é⌐éτÄ└ìsé╡é─é¡é╛é│éóüB")
  87.  
  88. <:#239,9071>    exit function
  89.  
  90. <:#239,9071>endif
  91.  
  92. <:#239,9071>ignorekeyboard(2)
  93.  
  94. <:#239,9071>again:
  95.  
  96. <:#239,9071>if curshade$() = "" and getmode() = 129
  97.  
  98. <:#239,9071>    usercontrol("ò█æ╢é╖éΘâZâïé≡æIæ≡é╡é─é¡é╛é│éó")
  99.  
  100. <:#239,9071>    goto again
  101.  
  102. <:#239,9071>endif
  103.  
  104. <:#239,9071>if curshade$() = ""
  105.  
  106. <:#239,9071>    usercontrol("ò█æ╢é╖éΘòöò¬é≡æIæ≡é╡é─é¡é╛é│éó")
  107.  
  108. <:#239,9071>    goto again
  109.  
  110. <:#239,9071>endif
  111.  
  112. <:#239,9071>copy()
  113.  
  114. <:#239,9071>sty = GetProfileString$("AmiPro", "defstyle", "amipro.ini")
  115.  
  116. <:#239,9071>if sty = ""
  117.  
  118. <:#239,9071>    sty = "Jdefault.sty"
  119.  
  120. <:#239,9071>endif
  121.  
  122. <:#239,9071>new(sty, 0, 0)
  123.  
  124. <:#239,9071>paste()
  125.  
  126. <:#239,9071>saveas
  127.  
  128. <:#239,9071>fileclose()
  129.  
  130. <:#239,9071>end function
  131.  
  132. >
  133.  
  134. [Embedded]
  135. 00001837
  136. >
  137. [macsum] 1
  138. shadesav 0 0 3 2
  139. [macse]
  140. 14 shadesav
  141. 0 1317
  142. 13
  143. 11 00000101
  144. 0 3 "NewWaveé┼é═é▒é╠â}âNâìé═ùLî°é┼é═éáéΦé▄é╣é±üB"
  145. 6 0
  146. 15
  147. 9
  148. 0 1050
  149. 13
  150. 5 9
  151. 18 0
  152. 11 00000288
  153. 0 39 13
  154. 13
  155. 8 1
  156. 0 3 "âtâ@âCâïé¬éXé┬èJé⌐éΩé─éóé▄é╖é╠é┼üAé▒é╠é▄é▄é┼é═Ä└ìsé┼é½é▄é╣é±üB{1}éPé┬ê╚Åπé╠âtâ@âCâïé≡ò┬é╢é─é⌐éτÄ└ìsé╡é─é¡é╛é│éóüB"
  157. 6 0
  158. 15
  159. 9
  160. 0 32 2
  161. 0 24
  162. 13
  163. 7 ""
  164. 18 0
  165. 0 29
  166. 13
  167. 5 129
  168. 18 0
  169. 1 1
  170. 11 00000410
  171. 0 7 "ò█æ╢é╖éΘâZâïé≡æIæ≡é╡é─é¡é╛é│éó"
  172. 10 00000296
  173. 0 24
  174. 13
  175. 7 ""
  176. 18 0
  177. 11 00000496
  178. 0 7 "ò█æ╢é╖éΘòöò¬é≡æIæ≡é╡é─é¡é╛é│éó"
  179. 10 00000296
  180. 2 154 1
  181. 0 286 "AmiPro" "defstyle" "amipro.ini"
  182. 13
  183. 8 2
  184. 6 2
  185. 7 ""
  186. 18 0
  187. 11 00000607
  188. 7 "Jdefault.sty"
  189. 8 2
  190. 2 101 1 "{2}" 0 0
  191. 2 155 1
  192. 24 104
  193. 2 147 1
  194. 6 0
  195. 15
  196. 9
  197. 00001862
  198.